# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
;satrect1se
;
;TS 3 / 08.09.2011
;Durham February 2017
;
;saturation recovery T1 experiment with solid echo
;written by STE, 28.11.2002
;pulse program is for 2D acquisition
;establish suitable vd list
;uses mc syntax, so that it can be used in 1D mode for set-up of 
;saturation pulse train
;set d6 to 5-100usec depending on dead time
;set d7 shorter than d6 by 3usec plus 10 dw to make
;sure the evolution of the echo is obvserved, then left shift
;FID prior to ft to get smallest possible 1st order pohase correction
;set receiver phase either with phcor0 or with HPCU receiver phase
;to get maximum signal in ADC channel A and almost no signal in channel B
;for minimum 0 order phase correction (no signal in channel B  is only
;possible if O1 exactly in center and spectrum perfectly symmetric).
;phase cycle will cancel deadtime partially, but not perfectly
;
;
;Avance II+ version
;parameters:
;pl1 : X power level
;pl2 : =0W, not used
;pl12 : power level for H 90 and standard proton decoupling 
;pl13 : e.g. used in spinal64_13
;p1 : X 90 degree pulse
;d1 : recycle delay
;d20 : delay in saturation pulse train
;l20 : number of pulses in saturation pulse train, 0 if undesired
;vdlist : list containing tau delays
;d6 : echo delay
;d7 : =0, or no longer than d6-de
;ns : = 8*n
;pcpd2 : pulse length in decoupling sequence
;FnMode : QF
;
;
;$CLASS=Solids
;$DIM=pseudo 2D
;$TYPE=direct excitation
;$SUBTYPE=T1/T2
;$COMMENT=saturation recovery T1 experiment

"acqt0=-p1/2"

# 1 "mc_line 49 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
"MCREST = 10m - 10m"
"MCWRK = 0.500000*10m"

    dccorr
# 49 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
1 ze
# 1 "mc_line 49 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se exp. def. of mc cmd. after ze"
# 50 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
# 1 "mc_line 50 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se exp. start label for mc cmd."
2 MCWRK 
LBLF1, MCWRK
  MCREST
# 51 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
# 54 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
  d1

# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/aq_prot.incl" 1
;aq_prot.incl
;avance-version (13/01/28)
;Test the rf on-time and duty cycle
;protect against too long acquisition time

;$CLASS=Solids INCL
;$COMMENT=protect against too long acquisition time
# 9 "/opt/topspin3.2/exp/stan/nmr/lists/pp/aq_prot.incl"
1m
if "aq < 50.1m" goto Passaq
2u 
print "acquisition time exceeds 50m limit!"
goto HaltAcqu
Passaq, 1m

;$Id: aq_prot.incl,v 1.2.18.4 2013/01/28 17:40:19 ber Exp $
# 56 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se" 2

			;allows max. 50 msec acquisition time, supervisor
			;may change  to max. 1s at less than 5 % duty cycle
			;and reduced decoupling field
3 d20
  (p1 pl1 ph4):f1
  lo to 3 times l20
  vd			;recovery delay
  (p1 pl1 ph1):f1
  d6
  (p1 ph2):f1
  d7
# 71 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
  go=2 ph31


# 1 "mc_line 75 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se exp. mc cmd. in line"
  MCWRK  wr #0 if #0 zd ivd 
  lo to LBLF1 times td1
  MCWRK
# 76 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
# 76 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/satrect1se"
HaltAcqu, 1m
exit

ph1= 0 3 2 1 0 3 2 1
ph2= 3 2 1 0 1 0 3 2
ph4= 0
ph31= 3 2 1 0 3 2 1 0

;$id: $
